﻿Public Class BEcronograma

#Region "Declaración de variables"

    Private codCronograma As Integer
    Private codPersonal As Integer
    Private codEvento As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodCronograma As Object, _
            ByVal pCodPersonal As Object, _
            ByVal pCodEvento As Object)

        Me._codCronograma = pCodCronograma
        Me._codPersonal = pCodPersonal
        Me._codEvento = pCodEvento

    End Sub

    Public Property _codCronograma() As Integer
        Get
            Return Me.codCronograma
        End Get
        Set(ByVal value As Integer)
            Me.codCronograma = value
        End Set
    End Property

    Public Property _codPersonal() As Integer
        Get
            Return Me.codPersonal
        End Get
        Set(ByVal value As Integer)
            Me.codPersonal = value
        End Set
    End Property

    Public Property _codEvento() As Integer
        Get
            Return Me.codEvento
        End Get
        Set(ByVal value As Integer)
            Me.codEvento = value
        End Set
    End Property

End Class
